home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok02.lha / M2Code / M2CodeDemo2 / SortDemo.mod < prev    next >
Encoding:
Text File  |  1993-08-16  |  506 b   |  25 lines
  1. MODULE SortDemo;
  2.  
  3. FROM SYSTEM IMPORT ADR,ADDRESS,BYTE,WORD;
  4. FROM Sort IMPORT Sort;
  5. FROM InOut IMPORT WriteLn,WriteString,WriteCard;
  6. FROM RandomNumbers IMPORT Random;
  7.  
  8. CONST
  9.   Size = 1000;
  10.  
  11. VAR
  12.   x: ARRAY[0..Size] OF CARDINAL;
  13.   i: CARDINAL;
  14.  
  15. BEGIN
  16.   WriteString("Calculating random numbers"); WriteLn;
  17.   FOR i:=0 TO Size DO x[i]:= Random(65535) END;
  18.   WriteString("Sorting"); WriteLn;
  19.   Sort(ADR(x),Size);
  20.   WriteString("Ready."); WriteLn;
  21.   FOR i:=0 TO Size DO
  22.     WriteCard(x[i],7);
  23.   END;
  24. END SortDemo.
  25.